00100	% THIS IS A PROGRAM NEEDED BY 'HAR000' AND 'TALK00'.  TO RECONSTRUCT THE DOCJOB CORE IMAGE:
00200	
00300		.R MLISPC					( COMPILE DOCJOB )
00400		*(MLISP DOCJOB T)
00500		*↑C
00600	
00700		.R LISP 16					( READ IN THE LAP CODE )
00800		ALLOC? Y
00900		FULL WDS=2000_					( _ MEANS <SPACE> )
01000		BIN.PROG.SP=2600_
01100		SPEC.PDL=_
01200		REG. PDL=_
01300		HASH=_
01400		*(DSKIN (DOCJOB.LAP) (S,DAV) (MAIL.FNS) SYS: UTILS)
01500		*(MAIL_INIT)
01600		*(INITFN (QUOTE RESTART))
01700		*↑C
01800		.SAVE DOCJOB
01900	
02000	TO RUN THE PROGRAM, TYPE
02100		.RUN DOCJOB[4,KMC]
02200	%
02300	
02400	
02500	BEGIN
02600	
02700	
02800	PRINTSTR "
02900	IF THE SYSTEM GOES DOWN,
03000	YOU MAY HAVE TO RETYPE YOUR LAST QUESTION.
03100	WE WILL BE READY TO GO IN A MINUTE.
03200	
03300	";
03400	WHILE T DO EVAL WAIT_FOR_MAIL(T);	% GET AND EXECUTE A COMMAND FROM SOMEONE. %
03500	
03600	
03700	EXPR READ_MESSAGE ();			% A FUNCTION FOR READING THE DOCTOR'S MESSAGE. %
03800		BEGIN  NEW CH, L;
03900		PRINTSTR "READY:";
04000		DO NIL UNTIL (CH ← READCH()) NEQ CR & CH NEQ LF & CH NEQ ALTMODE;
04100		TERPRI TERPRI DO L ← CH CONS L UNTIL (CH ← READCH()) EQ ALTMODE & (CH ← READCH()) EQ ALTMODE;
04200		RETURN READLIST('?" CONS REVERSE('?" CONS L));
04300		END;
04400	
04500	
04600	END.